﻿Public Class Enumerations
#Region "enum class"
    Private Class DateType
        Public Shared WeekEnd As String = "Week End"
        Public Shared PublicHoliday As String = "Public Holiday"
        Public Shared CompanyHoliday As String = "Company Holiday"
        Public Shared Other As String = "Other"
    End Class

    Private Class Status
        Public Shared Active As String = "Active"
        Public Shared InActive As String = "InActive"
    End Class
#End Region

    Public Enum EnumSaleOrderStatus
        CC
        CT
        PT
        PC
        UCT
    End Enum

    Public Enum DefaultStatus
        InActive
        Active
    End Enum

    Public Enum StatusValue
        ACT
        INA
    End Enum

    Public Enum DefaultDateType
        WeekEnd
        PublicHoliday
        CompanyHoliday
        Other
    End Enum

    Public Shared Function GetStringStatus(ByVal i As Int32) As String
        Select Case i
            Case 0
                Return Status.InActive
            Case 1
                Return Status.Active
            Case Else
                Return Status.Active
        End Select
    End Function

    Public Shared Function GetDateType(ByVal i As Int32) As String
        Select Case i
            Case 0
                Return DateType.WeekEnd
            Case 1
                Return DateType.PublicHoliday
            Case 2
                Return DateType.CompanyHoliday
            Case 3
                Return DateType.Other
            Case Else
                Return DateType.WeekEnd
        End Select
    End Function

End Class
